strComputer = "."
Set objWMIService = GetObject(_
   "winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
   ("SELECT * FROM Win32_PageFileSetting")
For Each objItem in colItems
   Wscript.Echo objItem.name
Next